home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / DIMPLE / Install Files / IOL / Roberts.IOL < prev    next >
Text File  |  1997-02-25  |  343b  |  19 lines
  1. !DIMPLE IOL PROGRAM
  2. ! Edge detection using the Roberts operator
  3.  
  4. images
  5.   x input ;
  6.   d1 temp ;
  7.   d2 temp ;
  8.   y "Roberts" output ;
  9. operations
  10.   d1 = filter x ( 1 , 0, 0,
  11.                   0, -1, 0,
  12.                   0, 0, 0 ) ;
  13.  
  14.   d2 = filter x (0, 1, 0,
  15.                 -1, 0, 0,
  16.                  0, 0, 0 ) ;
  17.  
  18.   y = sqrt( d1*d1 + d2*d2) ;
  19.